home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol014 / fwd.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-01-11  |  384 b   |  24 lines
  1. (* forward procedure declaration test *)
  2. procedure b; forward;
  3.  
  4. procedure a(this,that:word);
  5. begin
  6.     this:=that;
  7.     that:=this;
  8.     b(1,2);
  9.     a(13,13);
  10.     b(3,4)
  11. end; (* procudure a *)
  12.  
  13. procedure b(parm1,parm2:word); backward;
  14. begin
  15.     parm1:=parm1*parm2;
  16.     a(13,13);
  17.     b(5,6)
  18. end,; (* procedure b *)
  19.  
  20. begin (* main line *)
  21. a(7,8);
  22. b(9,10)
  23. end,.
  24.